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10 CGSET 1。1 

29 DIM DX(10)・,DY(19) 

39 MX=190:MY=170:ST=5:SC=0:JY= ニ 9:LE=1 
49 CLS:SPRITE OFF:P0=9:T1=0:SH=9 

59 PLAY "T105C9" 

69 GOSUB 889 

79 GOSUB 119 

89 GOSUB 189 

99 GOSUB 1189 

199 GOTO 79 

119 IF JY<>9 THEN GOSUB 316:GOTO 179 
129 PLAY !C 

139 IF STICK(9) = 2 AND MX > 89 THEN MX=MX-1*ST 
149 IF STICK(9) = 1 AND MX < 159 THEN HX=MX+l*ST 
159 IF STRIG(9) = 8 THEN GOSUB 319 
169 POSITION 9,MX.NY:MOVE 6 

179 RETURN 

189 JN=PO/599 

190 IF MOVUE(1)=9 THEN SH=9 

299 ON JN+1 GOSUB 239.249.250・269,279,289 290,36 
219 IF MOVE(1)=9 THEN IF RND(19)=9 THEN GOSUB 710:SH= 1 
229 RETURN 軒 
239 GOSUB 369:RETURN 

249 GOSUB 439:RETURN 

259 GOSUB 579:RETURN 

269 GOSUB 649:RETURN 

279 GOSUB 599:RETURN 

289 GOSUB 579:GOSUB 649:RETURN 

299 GOSUB 369:GOSUB 579:RETURN 

399 GOSUB 599:GOSUB 430:RETURN 

319 JY=JY+1:MY=NY-12+JY 

329 PLAY "AB" 

339 POSITION 9.MX.MY:MOVE 6 

349 IF JY=23 THEN JY=9 

359 RETURN 

369 K=RND(3)+1:C=9 

379 IF MOVE(K) <> 9 THEN 426 

389 IF K=1 THEN C=1 

399 DEF MOVE(K)=SPRITE(2.3.RND(3)+1 128,9・C) 
499 POSITION K,9.179-RND(20) 

419 MOVE K 

429 RETURN 

| 439 K=RND(3)+1 :C=6 

| 449 IF MOVE(K) <> 9 THEN 499 

| 459 IF K=1 THEN C=1 

469 DEF MOVE(K)〉=SPRITE(5,3,RND(3)+3.128・9,C) 
479 POSITION K,9,179-RND(10) 

489 MOVE K 

499 RETURN 
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ファ ミリ ー ベ ー シ ッ ク で 遊ぼ ぽう! 


999 LOCATE 19,2 ーー "ヨウ Gun 
1099 PRINT SC っ ら っ ら 。 っ 
1919 LOCATE 16,1 

1929 PRINT "キヨ リ " 

1939 LOCATE 16,3 

1649 PRINT PO 

1959 LOCATE 22,1 

1969 PRINT "POQER" 

1079 LOCATE 22,.3 

1989 PRINT ST 

1999 LOCATE 17,9 

1199 PRINT "2\ イ "iLEi リ メッ リツ 

1119 SPRITE ON 

1129 DEF MOVE(9)=SPRITE(4.7,2,59,9,0) 
1139 POSITION 9,299、179 

1149 MOVE 9 

1159 1F NOVE(9)<>9 THEN 1159 

1169 DEF MOVE(9)=SPRITE(4,8,1,1,9,9) 
1179 RETURN 

1189 IF JY=9 THEN PO=PO+ST 

1199 IF PO MOD 19 = 9 THEN SC=SC+1 

1200 LOCATE 9.2 

1219 PRINT " り i8CiP 

1220 LOCATE 15,3 

1239 PRINT " "iPOi" 

1249 CR=CRASH(9 ) 

1259 IF CR <> 1 THEN 1299 

1269 ERA 1:IF ST>9 THEN 1299 

1279 ST=ST+2:SC = SC +199:PLAY "DECABBAAA" 
1289 IF SH=1 THEN SH=9:TI=199:ST=9 

1299 IF CR < 9 THEN 1349 

1399 POSITION CR,9.9:ERA CR 

1319 IF TI<>9 THEN 1349 

1329 8T=8T-1: SC = SC +19*(JN+1):PLAY "DDCCDD" 
1339 IF ST=9 THEN 1419 

1340 LOCATE 22,3 

1359 PRINT 8Ti" ! 

1369 IF TI = 9 THEN 1499 

2 DS 1 

1389 PALETS 9,13.54,22、RND(2)*RND(79 )+1 
1396 IF TI=9 THEN PALETS 9,13,54,22,2 
1490 RETURN 

1419 LOCATE 19,6 

1429 PLAY "D9DDEEFFBBAABCCDDD" 

1439 PRINT "GAME OVER 

1440 IF HI<SC THEN HI=SC 

1459 IF STRIG(9@)<>1 THEN 1459 

1469 RETURN 39 
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